perm filename CCIRC[SAB,LCS]1 blob sn#352579 filedate 1978-05-01 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		PROGRAM CCIRC
C00003 ENDMK
CāŠ—;
	PROGRAM CCIRC
	DIMENSION IBUF(5000)
	JFAC=50
	KFAC=50
 	CALL PLOTS(IBUF,5000,1)
 	CALL PLOT(15.,14.75,-3)
	DO 6 I=1,6
 	XC=0.
 	R=RAND(1)*10.
 	YC=RAND(1)*10
	CALL CIRC2(R,XC,YC)
6	CONTINUE
 	CALL DPYOUT(1)
 	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
	STOP
	END